home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rpgedi1a / frmmessa.frm (.txt) < prev    next >
Visual Basic Form  |  1999-09-09  |  4KB  |  115 lines
  1. VERSION 5.00
  2. Begin VB.Form frmMessage 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   2235
  6.    ClientLeft      =   45
  7.    ClientTop       =   45
  8.    ClientWidth     =   6660
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   2235
  14.    ScaleWidth      =   6660
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Label lblTitle 
  18.       AutoSize        =   -1  'True
  19.       BackColor       =   &H00000000&
  20.       BackStyle       =   0  'Transparent
  21.       Caption         =   "RPG Message"
  22.       BeginProperty Font 
  23.          Name            =   "Home"
  24.          Size            =   18
  25.          Charset         =   0
  26.          Weight          =   400
  27.          Underline       =   0   'False
  28.          Italic          =   0   'False
  29.          Strikethrough   =   0   'False
  30.       EndProperty
  31.       ForeColor       =   &H00FFFFFF&
  32.       Height          =   360
  33.       Left            =   120
  34.       TabIndex        =   2
  35.       Top             =   120
  36.       Width           =   2175
  37.    End
  38.    Begin VB.Label lblMessage 
  39.       AutoSize        =   -1  'True
  40.       BackColor       =   &H00000000&
  41.       BackStyle       =   0  'Transparent
  42.       Caption         =   "An error has occured"
  43.       BeginProperty Font 
  44.          Name            =   "Home"
  45.          Size            =   18
  46.          Charset         =   0
  47.          Weight          =   400
  48.          Underline       =   0   'False
  49.          Italic          =   0   'False
  50.          Strikethrough   =   0   'False
  51.       EndProperty
  52.       ForeColor       =   &H00FFFFFF&
  53.       Height          =   360
  54.       Left            =   1440
  55.       TabIndex        =   1
  56.       Top             =   960
  57.       Width           =   3285
  58.    End
  59.    Begin VB.Label lblReturn 
  60.       AutoSize        =   -1  'True
  61.       BackColor       =   &H00000000&
  62.       BackStyle       =   0  'Transparent
  63.       Caption         =   "Return"
  64.       BeginProperty Font 
  65.          Name            =   "Home"
  66.          Size            =   26.25
  67.          Charset         =   0
  68.          Weight          =   400
  69.          Underline       =   0   'False
  70.          Italic          =   0   'False
  71.          Strikethrough   =   0   'False
  72.       EndProperty
  73.       ForeColor       =   &H00FFFFFF&
  74.       Height          =   525
  75.       Left            =   2400
  76.       TabIndex        =   0
  77.       Top             =   1560
  78.       Width           =   1635
  79.    End
  80. Attribute VB_Name = "frmMessage"
  81. Attribute VB_GlobalNameSpace = False
  82. Attribute VB_Creatable = False
  83. Attribute VB_PredeclaredId = True
  84. Attribute VB_Exposed = False
  85. Dim enter As Boolean
  86. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  87.     'make the return label white
  88.     lblReturn.ForeColor = QBColor(15)
  89. End Sub
  90. Private Sub lblReturn_Click()
  91.     enter = True
  92. End Sub
  93. Public Function showMessage(msg As String, frmName As Form)
  94.     'show the message in the label
  95.     lblMessage.Caption = msg
  96.     'center the message on the form
  97.     lblMessage.Left = (frmMessage.Width - lblMessage.Width) / 2
  98.     frmName.Enabled = False
  99.         
  100.     'show the message frm
  101.     frmMessage.Visible = True
  102.     'play the message sound
  103.     Call sndPlaySound(sndMessage, &H1)
  104.     frmMessage.SetFocus
  105.     While enter = False
  106.     DoEvents
  107.     Wend
  108.     enter = False
  109.     frmName.Enabled = True
  110.     frmName.SetFocus
  111. End Function
  112. Private Sub lblReturn_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  113.     lblReturn.ForeColor = QBColor(12)
  114. End Sub
  115.